********************************
*| Signature macro for forums |*
********************************
   cl me "^L"
   as ep gp+"/outgoing/forums"
   open 2 s5+".trt" if su #addmsg
   cl cr s5+".trt" open 2 s5+".trt"
#addmsg
   ap 2
   cl 1 open 1 "forum.trt" if fa #uhoh
   cl 1 open 1 "addr.tmp" if fa #uhoh
 as s9 "Saving "+s5+".TRT - Please Wait..." 
 ba db fo wh si n9 s9 as n7 n9/2 as n7 40-n7
 wi n7-3,10,n7+n9+2,12 lo n7 11 fo ye me s9 for wh ba bl


#add1
   in 1 s0 if fa #add15
   out 2 s0 "^M" go #add1

#add15
   cl 1 op 1 "forum.trt"

#add2
   in 1 s0 if fa #endmsg
   out 2 s0 "^M" go #add2

#endmsg 
   close 1 ki "forum.trt" ki "addr.tmp"
   open 1 s5+".sign" if fa #finit

#loop
   in 1 s0 if fa #finit
   out 2 s0 "^M" go #loop

#finit
  cl 1 out 2 "@@@^M" cl 2
  if s8 == "REPLY" #goreader
  ch at+"/olr.data/delpilot.a.mnu"

#goreader
  ch at+"/olr.data/olright.for" 

#uhoh
   no "Bad or no message file"
   ch at+"/olr.data/delpilot.a.mnu"